home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byteibm.arc / FRIED.ARC / DBB16.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-07-12  |  818 b   |  66 lines
  1. NAME    DBB16
  2.  
  3. ; Data bus bound -- 16K bytes of instructions
  4.  
  5. ; Assembly language subroutine source for PI program.
  6. ; Provided to Byte Magazine by:
  7.  
  8. ; MicroWay, Inc.
  9. ; PO Box 79
  10. ; Kingston MA 02364
  11.  
  12. ; (617) 746-7341
  13.  
  14. ; Copyright (C) MicroWay, Inc., 1986.
  15.  
  16. PUBLIC    DBB16
  17.  
  18. DGROUP    GROUP    COMMON
  19.  
  20. COMMON    SEGMENT    PARA COMMON 'BLANK'
  21.  
  22. _DSRC    DW    10240 DUP (?)
  23. _DDEST    DW    10240 DUP (?)
  24. SPC$1_    DD    1.0
  25. SPC$2_    DD    2.0
  26. SPC$3_    DD    3.0
  27. SV$A    DD    0.0
  28. SV$B    DD    ?
  29.  
  30. COMMON    ENDS
  31.  
  32. CODE    SEGMENT    WORD PUBLIC 'CODE'
  33.  
  34. ASSUME    CS:CODE, DS:DGROUP
  35.  
  36. DBB16    PROC    FAR
  37.  
  38.     MOV    CX,40
  39. INNER:
  40. ; Start of test code
  41. REPT    1024
  42.  
  43.     XOR    AX,AX
  44.     XOR    DX,DX
  45.     ADD    AX,DX
  46.     ADD    AX,DX
  47.     SUB    AX,DX
  48.     SUB    AX,DX
  49.     CLC
  50.     CLD
  51.     NOP    
  52.     NOP
  53. ENDM
  54. ; End of test code
  55.  
  56.     LOOP    $INNER
  57.     RET
  58.  
  59. $INNER:    JMP    INNER
  60.  
  61. DBB16    ENDP
  62.  
  63. CODE    ENDS
  64.  
  65.     END
  66.